Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 623,426.6 20.29 193,955.9 1,246,853 74.66 656,117.3 623,426.59 100
lp://DOT/LCDOT 4,228,747.2 804.34 1,696,408.0 4,216,871 2,229.72 1,929,458.6 11,876.57 1.9
lp://AUSD/LCDOT 2,206,862.8 824.10 1,770,602.3 2,200,663 821.79 1,830,370.2 6,200.12 1
lp://ACA/AUSD 2,691,242.1 10,718.37 2,304,035.4 2,690,966 10,718.00 2,380,891.9 276.39 0

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/AUSD -1,023,975.08 -883.04 -7,594.25 NA NA NA NA NA
lp://KINT/AUSD -1,149,724.66 -3,616.65 -10,694.32 NA NA NA NA NA
lp://PHA/AUSD -921,034.77 -582.32 -4,844.16 NA NA NA NA NA
lp://AUSD/KINT 1,122,977.19 -2,290.14 -7,727.62 22,390.14 5,600.88 22,178.20 1,100,587.06 NA
lp://AUSD/PHA 894,015.59 -6.21 -3,991.39 61,372.90 14.16 20,283.87 832,642.68 NA
lp://AUSD/KBTC 942,967.42 -510.20 -5,545.35 483,419.69 48,166.41 202,961.81 459,547.73 NA
lp://TAI/taiKSM 0.00 0.00 0.00 12,314.98 434.39 2,925.32 12,314.98 NA
lp://KSM/ARIS 2,746.55 47.42 662.97 5,493.10 96.34 3,397.49 2,746.55 NA
lp://KAR/KSM 1,002,399.32 2.94 395,088.59 1,001,842.96 4,459.77 404,080.55 556.36 NA
lp://KAR/LKSM 709,506.29 14,199.46 143,241.40 709,955.71 16,862.01 158,078.68 449.42 NA
lp://AUSD/LKSM 534,733.92 0.00 277,099.96 535,072.42 18,037.95 377,644.34 338.50 NA
lp://AUSD/KSM 630,941.43 139,807.10 964,225.29 631,197.07 139,807.10 978,358.66 255.64 NA
lp://AUSD/BNC 78,595.55 5,157.24 24,432.13 78,836.41 5,157.42 24,564.16 240.86 NA
lp://KAR/AUSD 426,030.69 0.00 248,928.38 425,794.54 561.64 546,305.73 236.16 NA
lp://AUSD/CSM 157,266.42 12,029.52 52,763.53 157,064.17 29,532.41 130,869.87 202.25 NA
lp://AUSD/QTZ 24,203.26 1,024.53 4,560.98 24,348.60 1,032.81 10,893.90 145.34 NA
lp://KAR/QTZ 18,115.94 452.28 4,414.03 18,232.49 652.69 5,941.21 116.55 NA
lp://AUSD/RMRK 33,032.22 3,765.70 24,433.25 32,943.39 3,765.73 24,463.49 88.84 NA
lp://KSM/LKSM 170,803.33 11,083.30 91,300.30 170,791.37 11,071.13 94,289.46 11.96 NA
lp://KSM/RMRK 55,673.16 9,779.56 54,489.82 55,676.89 9,779.25 57,519.23 3.73 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```